00100	C*****  THIS ROUTINE DIVIDES OCTAVE INTO ANY NUMBER OF EQUAL PARTS
00200	
00300		SUBROUTINE SUBR
00400		COMMON /P/P(1) /PL/PL(1) /INS/ INST(27),BG(60)
00500		COMMON INUM,IPAR,CNT(27),BT,IREST,DF,DUR(27)
00600	C   INUM=INST#  IPAR=PARAM#  
00700	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00800	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
00900	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
01000	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
01100	C   F1=86  F15=100 (NO F16!)
01200	
04500		IF(INUM.NE.1)GO TO 2
04600		IF(W.LE.0)X=1
04700		Z=P(2)
04800		IF(Z.LT.0)GO TO 5
04900		J=1
05000		X=P(4)
05100		W=Z+P(5)
05200		V=P(6)/Z
05300		RETURN
05400	5	J=0
05500		RETURN
05600	2	IF(J.EQ.0.AND.W.LE.0)RETURN
05700		W=W-P(7)
05800		IF(W.LE.0)RETURN
05900		X=X*V
06000		IF(X.GE.1)RETURN
06100		P(2)=P(2)*X
06200		END